home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 March - Disc 1 / Macworld (1999-03) (Disk 1).dmg / Shareware World / Utilities / Text Processing / Alpha / Tcl / SystemCode / alphaMenus.tcl < prev    next >
Encoding:
Text File  |  1998-11-21  |  4.9 KB  |  251 lines  |  [TEXT/ALFA]
  1. ## -*-Tcl-*-
  2.  # ###################################################################
  3.  #  Alpha - new Tcl folder configuration
  4.  # 
  5.  #  FILE: "alphaMenus.tcl"
  6.  #                                    created: 98-04-07 07.36.22 
  7.  #                                last update: 21/11/98 {6:29:49 pm} 
  8.  #  Author: Vince Darley
  9.  #  E-mail: <darley@fas.harvard.edu>
  10.  #    mail: Division of Engineering and Applied Sciences, Harvard University
  11.  #          Oxford Street, Cambridge MA 02138, USA
  12.  #     www: <http://www.fas.harvard.edu/~darley/>
  13.  #  
  14.  # Reorganisation carried out by Vince Darley with much help from Tom 
  15.  # Fetherston, Johan Linde and suggestions from the Alpha-D mailing list.  
  16.  # Alpha is shareware; please register with the author using the register 
  17.  # button in the about box.
  18.  #  
  19.  # Description:
  20.  # 
  21.  #  Initialises variables which contain the global menus.  If you 
  22.  #  use the smarterSource package, you can over-ride these quite
  23.  #  easily.  This file is sourced by the procedure 'menu::buildSome'
  24.  #  which handles menu building.
  25.  # ###################################################################
  26.  ##
  27. # ◊◊◊◊ File menu ◊◊◊◊ #
  28. set menu::items(File) {
  29.     "/Nnew"
  30.     "/Oopen…"
  31.     "<S/Wclose"
  32.     "<S<O<U/WcloseFloat"
  33.     "<S<I<O/WcloseAll"
  34.     "(-"
  35.     "<S/Ssave"
  36.     "<S<B<O/SsaveUnmodified"
  37.     "<S<I<O/SsaveAll"
  38.     "<SsaveACopyAs…"
  39.     "<S<UrenameTo…"
  40.     "<SsaveAs…"
  41.     "<E<SrevertToBackup"
  42.     "<Srevert"
  43.     "(-"
  44.     {Menu -n fileUtils -p menu::fileUtils {}}
  45.     "(-"
  46.     "pageSetup…"
  47.     "/P<Sprint…"
  48.     "printAll"
  49.     "(-"
  50.     "/Qquit"
  51. }
  52. lappend menu::which_subs(File) "fileUtils"
  53.  
  54. # ◊◊◊◊ Edit menu ◊◊◊◊ #
  55. set menu::items(Edit) {
  56.     "/Zundo"
  57.     "/Z<I<Oredo"
  58.     "/Levaluate"
  59.     "(-"
  60.     "/X<Scut"
  61.     "/C<Scopy"
  62.     "/V<Spaste"
  63.     "/A<SselectAll"
  64.     "/A<S<I<OselectParagraph"
  65.     "clear"
  66.     "(-"
  67.     "/`<Stwiddle"
  68.     "/`<S<I<OtwiddleWords" 
  69.     "(-" 
  70.     {/[<SshiftLeft} 
  71.     {/[<S<I<OshiftLeftSpace} 
  72.     {/]<SshiftRight} 
  73.     {/]<S<I<OshiftRightSpace} 
  74.     "/Bbalance" 
  75. }
  76.  
  77. # ◊◊◊◊ Text menu ◊◊◊◊ #
  78. set menu::items(Text) {
  79.     "/I<SfillParagraph"
  80.     "/I<S<O<IwrapParagraph"
  81.     "/I<S<O<I<UsentenceParagraph"
  82.     "/U<S<OfillRegion"
  83.     "/U<S<I<OwrapRegion"
  84.     "/U<S<O<I<UsentenceRegion"
  85.     "<E<SparagraphToLine"
  86.     "<SlineToParagraph"
  87.     "(-"
  88.     "<SreverseSort"
  89.     "<S<UsortParagraphs"
  90.     "<SsortLines"
  91.     "(-"
  92.     "zapInvisibles"
  93.     "<SspacesToTabs"
  94.     "<StabsToSpaces"
  95.     "<S<EindentSelection"
  96.     "<SIndentLine"
  97.     "<E<SdowncaseRegion"
  98.     "<SupcaseRegion"
  99.     "(-"
  100.     {Menu -n Strings {
  101.         "<SremovePrefix"
  102.         "<SinsertPrefix"
  103.         "<S<EremoveSuffix"
  104.         "<SinsertSuffix"
  105.         "setPrefix"
  106.         "setSuffix"
  107.         }}
  108.     "/D<ScommentLine"
  109.     "/D<S<I<OuncommentLine"
  110.     "<SuncommentBox"
  111.     "<ScommentBox"
  112.     "<S<EuncommentParagraph"
  113.     "<ScommentParagraph"
  114. }
  115. set menu::proc(Text) menu::textProc
  116.  
  117. proc menu::textProc {menu item} {
  118.     switch -- $item {
  119.     indentLine bind::IndentLine
  120.     "Goto Func" gotoFunc
  121.     "Goto File Mark" gotoFileMark
  122.     "Mark Hilite" markHilite
  123.     default {eval $item}
  124.     }
  125. }
  126.  
  127. # ◊◊◊◊ Search menu ◊◊◊◊ #
  128. set menu::items(Search) {
  129.     "/F<Sfind…"
  130.     "/F<S<I<OsearchStart"
  131.     "/G<SfindAgain"
  132.     "/G<S<I<OfindAgainBackward"
  133.     "/MfindInNextFile"
  134.     "/E<SenterSearchString"
  135.     "/E<S<I<OenterReplaceString"
  136.     "(-"
  137.     "/S<S<BquickFind"
  138.     "/S<S<B<IquickFindRegexp"
  139.     "/R<BreverseQuickFind"
  140.     "(-"
  141.     "/Rreplace"
  142.     "/Hreplace&FindAgain"
  143.     "<S/R<O<IreplaceAll"
  144.     "<S/R<O<I<BreplaceInFileset"
  145.     "(-"
  146.     "/,<BplaceBookmark"
  147.     "/.<BreturnToBookmark"
  148.     "/G<IgotoLine"
  149.     "(-"
  150.     "/M<I<OmatchingLines" 
  151.     "gotoMatch" 
  152.     "/M<BnextMatch"
  153.     "(-"
  154.     "/K<I<OgotoFunc"
  155.     "/K<O<BgotoFileMark"
  156.     "/=markHilite"
  157.     {Menu -n namedMarks -p namedMarkProc {
  158.         "/K<Oset…"
  159.         "goto…"
  160.         "remove…"
  161.         "(-"
  162.         "sort"
  163.         "sortByPosition"}}
  164.     {Menu -n unnamedMarks -p unnamedMarkproc {
  165.         "set…"
  166.         "exchangePointAndMark"}}
  167. }
  168. set menu::proc(Search) ""
  169.  
  170. # ◊◊◊◊ Utils menu ◊◊◊◊ #
  171. set menu::proc(fileUtils) menu::fileUtils
  172. set menu::proc(winUtils) menu::fileUtils
  173. set menu::items(fileUtils) {
  174.     "fileRemove…"
  175.     "fileInfo…"
  176.     "textToAlpha"
  177.     "showInFinder"
  178. }
  179. set menu::items(winUtils) {
  180.     "insertPathName…"
  181.     "insertFile…"
  182. }
  183.  
  184. set menu::items(Utils) {
  185.     {Menu -n winUtils -p menu::fileUtils {}}
  186.     {Menu -n asciiEtc {
  187.         "quoteChar"
  188.         "(-"
  189.         "keyCode"
  190.         "keyAscii"
  191.         "getAscii"
  192.         "insertAscii"}
  193.     }
  194.     "(-"
  195.     "<S/Y<Oshell"
  196.     "<S/Y<U<Ocalculator"
  197.     "<S/Y<B<OtoolserverShell"
  198.     "<S/L<O<IspellcheckWindow"
  199.     "<S/L<O<I<BspellcheckSelection"
  200.     "wordCount"
  201.     "(-" 
  202.     "sendUrl"
  203.     "/jcmdDoubleClick"
  204. }
  205. set menu::proc(Utils) ""
  206. lappend menu::which_subs(Utils) "winUtils"
  207.  
  208. # ◊◊◊◊ Config menu ◊◊◊◊ #
  209.  
  210. #     "helperApps…"
  211.  
  212. set menu::items(Config) {
  213.     {Menu -n preferences {}} 
  214.     {Menu -n packagePrefs -p menu::packagePrefsProc {}}
  215.     {Menu -n "Mode Prefs" -p mode::menuProc {}}
  216.     "(-"
  217.     "/lsetFontsTabs…"
  218.     "specialKeys…" 
  219.     "/kdescribeBinding"
  220.     "listPackages" 
  221.     "<SlistGlobalBindings" 
  222.     "<SlistAllBindings" 
  223.     "listFunctions" "(-" 
  224.     "viewSavedSetting…"
  225.     "removeSavedSetting…"
  226.     "(-"
  227.     {Menu -n redefineColors -p menu::colorProc {
  228.         foreground
  229.         background
  230.         "(-"
  231.         blue
  232.         cyan
  233.         green
  234.         magenta
  235.         red
  236.         white
  237.         yellow
  238.         "(-"
  239.         color_9
  240.         color_10
  241.         color_11
  242.         color_12
  243.         color_13
  244.         color_14
  245.         color_15}}
  246. }
  247. set menu::proc(Config) "menu::globalProc"
  248. lappend menu::which_subs(Config) packagePrefs mode packages preferences
  249.  
  250.  
  251.